﻿Imports System
Imports System.Collections
Imports System.Configuration
Imports System.Data
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.HtmlControls
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Xml.Linq
Imports BBDD
Imports Controladores

 _

Class retirarEfectivoUsuario
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Session("privUser") Is Nothing Or Integer.Parse(Session("privUser").ToString()) < 1 Then
            Response.Redirect("index.aspx")
        Else
            If Integer.Parse(Session("privUser").ToString()) = 1 Then
                Me.campoDNIRetirada.Text = Session("DNIUser").ToString()
                Me.campoDNIRetirada.Enabled = False
            End If
        End If
    End Sub 'Page_Load

    Protected Sub boton_retirar_Click(ByVal sender As Object, ByVal e As EventArgs)

        If Consultas.existeUsuario(campoDNIRetirada.Text.ToString()) Then
            If dineroARetirar.Text = "" Then
                dineroARetirar.Text = "-1"
            End If
            Session("error") = controlador.retiradaEfectivo(campoDNIRetirada.Text.ToString(), Double.Parse(dineroARetirar.Text.ToString()))
            If Session("error").ToString() = "" Then
                controlador.CreateMessageAlert(Me, "Operación satisfactoria", "Éxito en la operación")
                If Integer.Parse(Session("privUser").ToString()) > 1 Then
                    Me.campoDNIRetirada.Text = ""
                End If
                Me.dineroARetirar.Text = ""
            Else
                controlador.CreateMessageAlert(Me, Session("error").ToString(), "Mensaje de error")
            End If

        Else
            Session("error") = "No existe tal usuario para el DNI recibido"
            controlador.CreateMessageAlert(Me, Session("error").ToString(), "Error en la operación")
        End If
    End Sub 'boton_retirar_Click 
End Class 'retirarEfectivoUsuario